home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1998 Special / special1988a.d64 / 64 key (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  44 lines
  1. 10 print"[147] 64-key"
  2. 20 fori=52557to52739
  3. 30 reada:x=x+a:pokei,a
  4. 40 nexti
  5. 50 ifx<>24016thenprint"there is an error in your data statements":stop
  6. 60 print"sys52557 to activate":end
  7. 80 data 120 , 173 , 20 , 3 , 72
  8. 90 data 173 , 21 , 3 , 72 , 173
  9. 100 data 116 , 205 , 208 , 2 , 169
  10. 110 data 118 , 141 , 20 , 3 , 173
  11. 120 data 117 , 205 , 208 , 2 , 169
  12. 130 data 205 , 141 , 21 , 3 , 104
  13. 140 data 141 , 117 , 205 , 104 , 141
  14. 150 data 116 , 205 , 88 , 96 , 0
  15. 160 data 0 , 72 , 138 , 72 , 152
  16. 170 data 72 , 165 , 215 , 72 , 165
  17. 180 data 212 , 240 , 4 , 104 , 76
  18. 190 data 221 , 205 , 104 , 201 , 193
  19. 200 data 144 , 82 , 201 , 219 , 176
  20. 210 data 78 , 56 , 233 , 193 , 170
  21. 220 data 189 , 229 , 205 , 162 , 0
  22. 230 data 134 , 198 , 170 , 160 , 158
  23. 240 data 132 , 34 , 160 , 160 , 132
  24. 250 data 35 , 160 , 0 , 10 , 240
  25. 260 data 16 , 202 , 16 , 12 , 230
  26. 270 data 34 , 208 , 2 , 230 , 35
  27. 280 data 177 , 34 , 16 , 246 , 48
  28. 290 data 241 , 200 , 177 , 34 , 48
  29. 300 data 17 , 8 , 142 , 255 , 205
  30. 310 data 230 , 198 , 166 , 198 , 157
  31. 320 data 119 , 2 , 174 , 255 , 205
  32. 330 data 40 , 208 , 234 , 230 , 198
  33. 340 data 166 , 198 , 41 , 127 , 157
  34. 350 data 119 , 2 , 169 , 20 , 141
  35. 360 data 119 , 2 , 230 , 198 , 104
  36. 370 data 168 , 104 , 170 , 104 , 76
  37. 380 data 49 , 234 , 198 , 169 , 199
  38. 390 data 134 , 128 , 129 , 161 , 144
  39. 400 data 133 , 137 , 141 , 200 , 202
  40. 410 data 130 , 159 , 151 , 194 , 201
  41. 420 data 196 , 163 , 183 , 197 , 131
  42. 430 data 135 , 140 , 158 , 127 , 0
  43. 440 data 0 , 0 , 255 , 255 , 255
  44.